home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vbideu_1 / install.exe / %MAINDIR% / Error.cls < prev    next >
Encoding:
Visual Basic class definition  |  1999-05-09  |  3.9 KB  |  183 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "class_Error"
  6. Attribute VB_GlobalNameSpace = False
  7. Attribute VB_Creatable = False
  8. Attribute VB_PredeclaredId = False
  9. Attribute VB_Exposed = False
  10. Option Explicit
  11.  
  12. ' *** Number of the error
  13. Dim nErrorNumber              As Long
  14.  
  15. ' *** Error name
  16. Dim nErrorName                As String
  17.  
  18. ' *** Function or procedure name
  19. Dim sProcName                 As String
  20.  
  21. ' *** A comment
  22. Dim sComment                  As String
  23.  
  24. ' *** Indicates if we want a message box or not
  25. Dim bMessageBox               As Boolean
  26.  
  27. ' *** Level in the error cascade
  28. Dim nLevelCascade             As Integer
  29.  
  30. ' *** Title of the windows
  31. Dim sFormCaption              As String
  32.  
  33. ' *** Indicate if we want the details or not
  34. Dim bDetails                  As Boolean
  35.  
  36. ' *** Parameters for the message box
  37. Dim nParametres               As Long
  38.  
  39. Public Property Get ErrorNumber()
  40.    ' #VBIDEUtilsERROR# 'Deseable error handler
  41.    ' *** We send the error number
  42.  
  43.    ErrorNumber = nErrorNumber
  44.  
  45. End Property
  46.  
  47. Public Property Let ErrorNumber(vNewValue)
  48.    ' #VBIDEUtilsERROR# 'Deseable error handler
  49.    ' *** We set the error number
  50.  
  51.    nErrorNumber = vNewValue
  52.  
  53. End Property
  54.  
  55. Public Property Get ErrorName()
  56.    ' #VBIDEUtilsERROR# 'Deseable error handler
  57.    ' *** We send the error name
  58.  
  59.    ErrorName = nErrorName
  60.  
  61. End Property
  62.  
  63. Public Property Let ErrorName(vNewValue)
  64.    ' #VBIDEUtilsERROR# 'Deseable error handler
  65.    ' *** We set the error name
  66.  
  67.    nErrorName = vNewValue
  68.  
  69. End Property
  70.  
  71. Public Property Get ProcName()
  72.    ' #VBIDEUtilsERROR# 'Deseable error handler
  73.    ' *** We send the function/procedure name
  74.  
  75.    ProcName = sProcName
  76.  
  77. End Property
  78.  
  79. Public Property Let ProcName(vNewValue)
  80.    ' #VBIDEUtilsERROR# 'Deseable error handler
  81.    ' *** We set the fucntion/procedure name
  82.  
  83.    sProcName = vNewValue
  84.  
  85. End Property
  86.  
  87. Public Property Get Comment()
  88.    ' #VBIDEUtilsERROR# 'Deseable error handler
  89.    ' *** We get the comment
  90.  
  91.    Comment = sComment
  92.  
  93. End Property
  94.  
  95. Public Property Let Comment(vNewValue)
  96.    ' #VBIDEUtilsERROR# 'Deseable error handler
  97.    ' *** We set the comment
  98.  
  99.    sComment = vNewValue
  100.  
  101. End Property
  102.  
  103. Public Property Get NeedMessageBox()
  104.    ' #VBIDEUtilsERROR# 'Deseable error handler
  105.    ' *** Do we need a message box
  106.  
  107.    NeedMessageBox = bMessageBox
  108.  
  109. End Property
  110.  
  111. Public Property Let NeedMessageBox(vNewValue)
  112.    ' #VBIDEUtilsERROR# 'Deseable error handler
  113.  
  114.    ' *** We set the need of a message box
  115.  
  116.    bMessageBox = vNewValue
  117.  
  118. End Property
  119.  
  120. Public Property Get LevelCascade()
  121.    ' #VBIDEUtilsERROR# 'Deseable error handler
  122.    ' *** We get the error level cascade
  123.  
  124.    LevelCascade = nLevelCascade
  125.  
  126. End Property
  127.  
  128. Public Property Let LevelCascade(vNewValue)
  129.    ' #VBIDEUtilsERROR# 'Deseable error handler
  130.    ' *** We set the error level cascade
  131.  
  132.    nLevelCascade = vNewValue
  133.  
  134. End Property
  135.  
  136. Public Property Get FormCaption()
  137.    ' #VBIDEUtilsERROR# 'Deseable error handler
  138.    ' *** We get the caption of the window
  139.  
  140.    FormCaption = sFormCaption
  141.  
  142. End Property
  143.  
  144. Public Property Let FormCaption(vNewValue)
  145.    ' #VBIDEUtilsERROR# 'Deseable error handler
  146.    ' *** We set the caption of the window
  147.  
  148.    sFormCaption = vNewValue
  149.  
  150. End Property
  151.  
  152. Public Property Get Details()
  153.    ' #VBIDEUtilsERROR# 'Deseable error handler
  154.    ' *** Do we need all details
  155.  
  156.    Details = bDetails
  157.  
  158. End Property
  159.  
  160. Public Property Let Details(vNewValue)
  161.    ' #VBIDEUtilsERROR# 'Deseable error handler
  162.    ' *** We set the need of all details
  163.  
  164.    bDetails = vNewValue
  165.  
  166. End Property
  167.  
  168. Public Property Get Parametres()
  169.    ' #VBIDEUtilsERROR# 'Deseable error handler
  170.    ' *** We get the parameters
  171.  
  172.    Parametres = nParametres
  173.  
  174. End Property
  175.  
  176. Public Property Let Parametres(vNewValue)
  177.    ' #VBIDEUtilsERROR# 'Deseable error handler
  178.    ' *** We set the parameters
  179.  
  180.    nParametres = vNewValue
  181.  
  182. End Property
  183.